! Show all tags of type #theTag in a group box
sub ListBlock,#theTag,#image,#help,#menuCmd
  if #theTag is here
	if #theTag="NOTE"
	    ! Use second to show all notes in Expression field
    	ReadAll "#readTheTags",@NOTE
    	!#readTheTags[0]=1
	else
		#readTheTags[0]=0
	endif
    newline
    #annTop=#vpos$
    cell LinkButton
    set border none image #image width 24
	help #help
	if #theTag="SOUR"
	  set ScriptLink "SortSources.gcscpt" ScriptType "format"
	else
      menulink #menuCmd
    endif
    HSkip 2
    #leftSkip=#hpos$
	VMoveTo #annTop
    ShowAll #theTag,#readTheTags[0]
    #leftSkip=#leftSkip$
  endif
endsub
